home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / ovrobj.com / OVR_OBJ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-29  |  1.2 KB  |  32 lines
  1. unit Ovr_Obj;
  2.  
  3. { 
  4. "OBJitized" data (data that has been converted to an OBJ file with the BINOBJ
  5. utility) normally cannot be used in an overlayed unit. The function OvrObj
  6. circumvents this restriction, returning a pointer to the actual data, whether
  7. or not the unit is overlaid.  See OVROBJ.DOC for more information.
  8.  
  9. Written by Ron Schuster.  Copyright (c) 1989, Ron Schuster. All rights reserved.
  10. May be distributed freely, but not for a profit.
  11.  
  12. Version 1.0, 11/29/89
  13. --------------------
  14.   Initial release.
  15. }
  16.  
  17. interface
  18.  
  19. function OvrObj (X : Pointer) : Pointer;
  20.   inline ($58/                          { pop ax           ; Offset part of X  }
  21.           $07/                          { pop es           ; Segment part of X }
  22.           $26/$81/$3e/$00/$00/$cd/$3f/  { cmp es:word ptr [0],3FCD ; Overlaid? }
  23.           $75/$06/                      { jne NotOverlayed ; Jump if not       }
  24.           $40/                          { inc ax           ; Skip over op code }
  25.           $89/$c7/                      { mov di,ax        ; Set up for LES    }
  26.           $26/$c4/$05/                  { les ax,es:[di]   ; Get data address  }
  27.           $8c/$c2);       { NotOverlayed: mov dx,es        ; Return it in DX:AX}
  28.  
  29. implementation
  30.  
  31. end.
  32.